home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / newrouts / addfunct.cls next >
Encoding:
Text File  |  1997-06-11  |  471 b   |  19 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsAddAFunction"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = False
  8. Sub AfterClick()
  9.     gIsFunction = True
  10.     frmOPXStand.Caption = "Add a Function"
  11.     frmOPXStand.cboRetType.Enabled = True
  12.     
  13.     'Populate screen with default data
  14.     frmOPXStand.txtAuthor.Text = gAuthorName$
  15.     frmOPXStand.txtMaxLen.Text = Str$(gMaxLen%)
  16.     
  17.     frmOPXStand.Show vbModal
  18. End Sub
  19.